home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / examples / xtmfm < prev    next >
Encoding:
Text File  |  1995-06-29  |  17.7 KB  |  757 lines
  1. #!/usrs/tm/src/moat -f
  2.  
  3. # An implementation of xmfm using tclMotif
  4.  
  5. set FILES_TOOLBAR_SIZE 6
  6.  
  7.  
  8. #######################################################################
  9. #
  10. # This part creates the geometry of xtmfm, and sets up appropriate
  11. # callbacks to handle behaviour
  12. #
  13. #######################################################################
  14.  
  15. #
  16. # createApplication
  17. #   - toplevel create function for the whole lot
  18. #
  19. proc createApplication {} {
  20.   xmMainWindow .main
  21.  
  22.   xmForm .main.form
  23.  
  24.   xmLabel .main.form.dirLabel
  25.  
  26.   set filesToolbar [createFilesToolbar .main.form]
  27.  
  28.   set dirsToolbar [createDirsToolbar .main.form]
  29.  
  30.   set pane [createPane .main.form]
  31.  
  32.   set menu [createMenu .main]
  33.  
  34.   panelSetFiles $pane
  35.  
  36.   $menu manageChild
  37.   $dirsToolbar manageChild
  38.   $filesToolbar manageChild
  39.   $pane manageChild
  40.   .main.form.dirLabel manageChild
  41.   .main.form manageChild
  42.   .main manageChild
  43.  
  44.   setGeometry .main.form.dirLabel $filesToolbar $dirsToolbar $pane
  45.  
  46.   .main setValues -menuBar $menu -workWindow .main.form
  47. }
  48.  
  49. #
  50. # createFilesToolbar
  51. # 
  52. proc createFilesToolbar {parent} {
  53.   global FILES_TOOLBAR_SIZE
  54.   global fileToolbarButtons
  55.  
  56.   xmRowColumn $parent.filesToolbar managed \
  57.     -numColumns        3 \
  58.     -packing         pack_column \
  59.     -orientation    horizontal \
  60.     -adjustLast        false
  61.  
  62.   for {set n 0} {$n < $FILES_TOOLBAR_SIZE} {incr n} {
  63.     set button [xmPushButton $parent.filesToolbar.filesToolbarButton$n managed \
  64.                 -labelString " "]
  65.     $button activateCallback "fileToolButtonPressed $n"
  66.     set fileToolbarButtons($n) $button
  67.   }
  68.  
  69.   return $parent.filesToolbar
  70. }
  71.  
  72. #
  73. # createDirsToolbar
  74. #
  75. proc createDirsToolbar {parent} {
  76.   global FILES_TOOLBAR_SIZE
  77.  
  78.   xmRowColumn $parent.dirsToolbar managed \
  79.     -numColumns        3 \
  80.     -packing         pack_column \
  81.     -orientation    horizontal \
  82.     -adjustLast        false
  83.  
  84.   for {set n 0} {$n < $FILES_TOOLBAR_SIZE} {incr n} {
  85.     set button [xmPushButton $parent.dirsToolbar.dirsToolbarButton$n managed \
  86.                 -labelString " "]
  87.     $button activateCallback "fileToolButtonPressed $n"
  88.   }
  89.  
  90.   return $parent.dirsToolbar
  91. }
  92.  
  93. #
  94. # createMenu
  95. #
  96. proc createMenu {parent} {
  97.   # top menu bar
  98.   xmMenuBar $parent.menuBar managed
  99.   xmCascadeButton $parent.menuBar.file managed \
  100.         -labelString File \
  101.         -mnemonic F
  102.   xmCascadeButton $parent.menuBar.edit managed \
  103.         -labelString Edit \
  104.         -mnemonic E
  105.   xmCascadeButton $parent.menuBar.help managed \
  106.          -labelString Help \
  107.         -mnemonic H
  108.  
  109.   # file pulldown
  110.   xmPulldownMenu $parent.fileMenu
  111.   xmPushButton $parent.fileMenu.new managed \
  112.         -labelString "New..." \
  113.         -mnemonic N
  114.   xmPushButton $parent.fileMenu.quit managed \
  115.          -labelString Quit \
  116.         -mnemonic Q
  117.   $parent.fileMenu.quit activateCallback exit
  118.  
  119.   $parent.menuBar.file setValues -subMenuId $parent.fileMenu
  120.  
  121.   return $parent.menuBar
  122. }
  123.  
  124. #
  125. # createPane
  126. #
  127. proc createPane {parent} {
  128.   xmPanedWindow $parent.pane
  129.  
  130.   # create the executable files section
  131.   xmForm $parent.pane.rc1 managed
  132.  
  133.   xmLabel $parent.pane.rc1.executableFilter managed \
  134.     -topAttachment attach_form \
  135.     -leftAttachment attach_form
  136.  
  137.   xmScrolledWindow $parent.pane.rc1.sw managed \
  138.     -scrollingPolicy    automatic \
  139.     -topAttachment attach_widget \
  140.     -topWidget $parent.pane.rc1.executableFilter \
  141.     -leftAttachment attach_form \
  142.     -rightAttachment attach_form \
  143.     -bottomAttachment attach_form
  144.  
  145.   xmRowColumn $parent.pane.rc1.sw.executablesPane managed
  146.  
  147.   $parent.pane.rc1.sw setValues \
  148.     -workWindow $parent.pane.rc1.sw.executablesPane
  149.  
  150.  
  151.   # create the ordinary files section
  152.   xmForm $parent.pane.rc2 managed
  153.  
  154.   xmLabel $parent.pane.rc2.fileFilter managed \
  155.     -topAttachment attach_form \
  156.     -leftAttachment attach_form
  157.  
  158.   xmScrolledWindow $parent.pane.rc2.sw managed \
  159.     -scrollingPolicy    automatic \
  160.     -topAttachment attach_widget \
  161.     -topWidget $parent.pane.rc2.fileFilter \
  162.     -leftAttachment attach_form \
  163.     -rightAttachment attach_form \
  164.     -bottomAttachment attach_form
  165.  
  166.   xmRowColumn $parent.pane.rc2.sw.filesPane managed
  167.  
  168.   $parent.pane.rc2.sw setValues \
  169.     -workWindow $parent.pane.rc2.sw.filesPane
  170.  
  171.   # create the directories section
  172.   xmForm $parent.pane.rc3 managed
  173.  
  174.   xmLabel $parent.pane.rc3.dirFilter managed \
  175.     -topAttachment attach_form \
  176.     -leftAttachment attach_form
  177.  
  178.   xmScrolledWindow $parent.pane.rc3.sw managed \
  179.     -scrollingPolicy    automatic \
  180.     -topAttachment attach_widget \
  181.     -topWidget $parent.pane.rc3.dirFilter \
  182.     -leftAttachment attach_form \
  183.     -rightAttachment attach_form \
  184.     -bottomAttachment attach_form
  185.  
  186.   xmRowColumn $parent.pane.rc3.sw.dirsPane managed
  187.  
  188.   $parent.pane.rc3.sw setValues \
  189.     -workWindow $parent.pane.rc3.sw.dirsPane
  190.  
  191.  
  192.   return $parent.pane
  193. }
  194.  
  195. #
  196. # setGeometry
  197. #
  198. proc setGeometry {dirLabel filesToolbar dirsToolbar pane} {
  199.   $dirLabel setValues \
  200.     -topAttachment    attach_form \
  201.     -leftAttachment    attach_form \
  202.     -rightAttachment    attach_form
  203.  
  204.   $filesToolbar setValues \
  205.     -topAttachment    attach_widget \
  206.     -topWidget        $dirLabel \
  207.     -leftAttachment    attach_form \
  208.     -bottomAttachment    attach_position \
  209.     -bottomPosition    45
  210.  
  211.   $dirsToolbar setValues \
  212.     -topAttachment    attach_position \
  213.     -topPosition    50 \
  214.     -leftAttachment    attach_form \
  215.     -bottomAttachment    attach_form
  216.  
  217.   $pane setValues \
  218.     -topAttachment    attach_widget \
  219.     -topWidget        $dirLabel \
  220.     -leftAttachment    attach_widget \
  221.     -leftWidget        $filesToolbar \
  222.     -rightAttachment    attach_form \
  223.     -bottomAttachment    attach_form
  224. }
  225.  
  226. #######################################################################
  227. #
  228. # This section contains the callbacks for the various widgets
  229. #
  230. #######################################################################
  231.  
  232. #
  233. # fileToolButtonPressed
  234. #
  235. proc fileToolButtonPressed {n} {
  236.   global fileToolbarButtonAction
  237.   global selectedFile
  238.  
  239.   set oldAction [lindex $fileToolbarButtonAction($n) 3]
  240.   regsub -all {\$0} $oldAction $selectedFile newAction
  241.   if { [regexp {^\$} $newAction] } {
  242.     builtinCommand "$newAction"
  243.   } else {
  244.     set runInXterm [lindex $fileToolbarButtonAction($n) 0]
  245.     set pauseAfterExec [lindex $fileToolbarButtonAction($n) 1]
  246.     doCommand "$newAction" $runInXterm $pauseAfterExec
  247.   }
  248. }
  249.  
  250. #
  251. # fileButtonPressed
  252. #
  253. proc fileButtonPressed {widget type} {
  254.   global actions
  255.   global fileToolbarButtons
  256.   global fileToolbarButtonAction
  257.   global FILES_TOOLBAR_SIZE
  258.   global selectedFile
  259.   global selectedWidget
  260.  
  261.   if {$selectedWidget != ""} {
  262.     invertColours $selectedWidget unhighlight
  263.   }
  264.   $widget getValues -labelString file
  265.   set selectedFile $file
  266.   set selectedWidget $widget
  267.   invertColours $selectedWidget highlight
  268.  
  269.   foreach f $actions {
  270.     set t_def [lindex $f 0]
  271.     if {$t_def != $type} continue
  272.     set pattern [lindex $f 1]
  273.     if { ! [string match $pattern $file] } continue
  274.     # we have a match!
  275.  
  276.     set pixmap [lindex $f 2]
  277.     set description [lindex $f 3]
  278.     set acts [lindex $f 4]
  279.  
  280.     set m 0
  281.     set length [llength $acts]
  282.     while {$m < $length && $m < $FILES_TOOLBAR_SIZE} {
  283.       set a [lindex $acts $m]
  284.       $fileToolbarButtons($m) setValues \
  285.         -labelString [lindex $a 2]
  286.       $fileToolbarButtons($m) setSensitive true
  287.       set fileToolbarButtonAction($m) $a
  288.       incr m
  289.     }
  290.  
  291.     # clear other buttons
  292.     while {$m < $FILES_TOOLBAR_SIZE} {
  293.       $fileToolbarButtons($m) setSensitive false
  294.       $fileToolbarButtons($m) setValues \
  295.     -labelString ""
  296.       incr m
  297.     }
  298.     break
  299.   }
  300. }
  301.  
  302. #
  303. # fileButtonReleased
  304. #
  305. proc fileButtonReleased {widget type} {
  306.   $widget getValues -labelString file
  307. }
  308.  
  309. #
  310. # fileButtonExposed
  311. #
  312. proc fileButtonExposed {widget type} {
  313.   global buttonsInfo
  314.  
  315.   $widget getValues -labelString file
  316.  
  317.   set fileInfo $buttonsInfo($widget)
  318.   set filename [lindex $fileInfo 0]
  319.   set gc [lindex $fileInfo 3]
  320.  
  321.   $widget getValues -height h
  322.   $widget drawImageString $gc 0 [expr $h-5] $filename 
  323. }
  324.  
  325. #######################################################################
  326. #
  327. # This section handles commands when they are selected
  328. #
  329. #######################################################################
  330.  
  331. #
  332. # builtinCommand
  333. #
  334. proc builtinCommand {command} {
  335.  
  336.   if { [regexp {^\$cd} $command] } {
  337.     set dirName [lindex $command 1]
  338.     cd $dirName
  339.     panelSetFiles .main.form.pane
  340.   }
  341. }
  342.  
  343. #
  344. # doCommand
  345. #   - this handles the non builtin commands
  346. #
  347. proc doCommand {command runInXterm pauseAfterExec} {
  348.  
  349.   if {$runInXterm && $pauseAfterExec} {
  350.     set newCommand "xterm -e pauseme $command"
  351.   } else {
  352.     if {$runInXterm} {
  353.       set newCommand "xterm -e $command"
  354.     } else {
  355.       set newCommand $command
  356.     }
  357.   }
  358.   eval exec $newCommand < /dev/null &
  359. }
  360.  
  361.  
  362. #######################################################################
  363. #
  364. # this section handles the dynamic updating of files displayed in the
  365. # various pane areas
  366. #
  367. #######################################################################
  368.  
  369. #
  370. # pixmapOf
  371. #  - find the pixmap for a filename
  372. #
  373. proc pixmapOf {file type} {
  374.   global actions
  375.  
  376.   foreach f $actions {
  377.     set t_def [lindex $f 0]
  378.     if {$t_def != $type} continue
  379.     set pattern [lindex $f 1]
  380.     if { ! [string match $pattern $file] } continue
  381.     # we have a match!
  382.  
  383.     set pixmap [lindex $f 2]
  384.     return $pixmap
  385.   }
  386. }
  387.  
  388. #
  389. # setGCs
  390. #
  391. proc setGCs {widget} {
  392.   global gc gc_reversed
  393.  
  394.   $widget getValues -foreground fg -background bg
  395.   set gc [$widget getGC -foreground $fg -background $bg]
  396.   set gc_reversed [$widget getGC -foreground $bg -background $fg]
  397. }
  398.  
  399. #
  400. # newPaneButton
  401. #
  402. proc newPaneButton {parent n} {
  403.   xmDrawnButton $parent.button$n managed \
  404.     -labelType pixmap
  405.  
  406.   return $parent.button$n
  407. }
  408.  
  409. #
  410. # panelSetFiles
  411. #  - the toplevel setter
  412. #
  413. proc panelSetFiles {panel} {
  414.   global dirArray
  415.   global fileArray
  416.   global executableArray
  417.   global buttonsInfo
  418.   global gc
  419.   global gc_reversed
  420.   global firstTime
  421.  
  422.   set dirCount 0
  423.   set fileCount 0
  424.   set executableCount 0
  425.  
  426.   setGCs $panel
  427.  
  428.   # turn off unpleasant screen draws
  429.   if { $firstTime != 0 } {
  430.     $panel.rc1.sw.executablesPane unmapWidget
  431.     $panel.rc2.sw.filesPane unmapWidget
  432.     $panel.rc3.sw.dirsPane unmapWidget
  433.   }
  434.  
  435.   set files [exec ls -a]
  436.   foreach f $files {
  437.     if { [file isdirectory $f] } {
  438.       if { ! [info exists dirArray($dirCount)] } {
  439.     set button \
  440.         [newPaneButton $panel.rc3.sw.dirsPane $dirCount]
  441.     $button armCallback {fileButtonPressed %w d}
  442.     $button activateCallback {fileButtonReleased %w d}
  443.     $button exposeCallback {fileButtonExposed %w d}
  444.     set dirArray($dirCount) $button
  445.       }
  446.       set pixmap [pixmapOf $f d]
  447.  
  448.       $dirArray($dirCount) setValues \
  449.         -labelPixmap $pixmap \
  450.     -labelString $f 
  451.       $dirArray($dirCount) manageChild
  452.  
  453.       set buttonsInfo($dirArray($dirCount)) \
  454.         [list $f d $pixmap $gc $gc_reversed]
  455.       incr dirCount
  456.  
  457.       continue
  458.     }
  459.  
  460.     if { [file executable $f] } {
  461.       if { ! [info exists executableArray($executableCount)] } {
  462.         set button \
  463.                 [newPaneButton $panel.rc1.sw.executablesPane $executableCount]
  464.     $button activateCallback {fileButtonReleased %w x}
  465.     $button armCallback {fileButtonPressed %w x}
  466.     $button exposeCallback {fileButtonExposed %w x}
  467.     set executableArray($executableCount) $button
  468.       }
  469.       set pixmap [pixmapOf $f x]
  470.  
  471.       $executableArray($executableCount) setValues \
  472.         -labelPixmap $pixmap \
  473.         -labelString $f 
  474.       $executableArray($executableCount) manageChild
  475.  
  476.       set buttonsInfo($executableArray($executableCount)) \
  477.         [list $f d $pixmap $gc $gc_reversed]
  478.       incr executableCount
  479.  
  480.       continue
  481.     }
  482.  
  483.     if { ! [info exists fileArray($fileCount)] } {
  484.       set button \
  485.                 [newPaneButton $panel.rc2.sw.filesPane $fileCount]
  486.       $button armCallback {fileButtonPressed %w f}
  487.     $button exposeCallback {fileButtonExposed %w f}
  488.       $button activateCallback {fileButtonReleased %w f}
  489.       set fileArray($fileCount) $button
  490.     }
  491.     set pixmap [pixmapOf $f f]
  492.  
  493.     $fileArray($fileCount) setValues \
  494.       -labelString $f \
  495.       -labelPixmap $pixmap
  496.     $fileArray($fileCount) manageChild
  497.  
  498.     set buttonsInfo($fileArray($fileCount)) \
  499.         [list $f d $pixmap $gc $gc_reversed]
  500.     incr fileCount
  501.   }
  502.  
  503.   # now we get to unmanage all the files that are still showing
  504.   while { [info exists dirArray($dirCount)]} {
  505.     $dirArray($dirCount) unmanageChild
  506.     incr dirCount
  507.   }
  508.   while { [info exists executableArray($executableCount)]} {
  509.     $executableArray($executableCount) unmanageChild
  510.     incr executableCount
  511.   }
  512.   while { [info exists fileArray($fileCount)]} {
  513.     $fileArray($fileCount) unmanageChild
  514.     incr fileCount
  515.   }
  516.  
  517.   # make this all visible again
  518.   if { $firstTime != 0 } {
  519.     $panel.rc1.sw.executablesPane mapWidget
  520.     $panel.rc2.sw.filesPane mapWidget
  521.     $panel.rc3.sw.dirsPane mapWidget
  522.   }
  523.   set firstTime 1
  524. }
  525.  
  526. #######################################################################
  527. #
  528. # this section covers what happens when a file is selected in a pane
  529. #
  530. #######################################################################
  531.  
  532. #
  533. # invertColours
  534. #
  535. proc invertColours {widget highlight} {
  536.   global buttonsInfo
  537.   
  538.   set fileInfo $buttonsInfo($widget)
  539.   set filename [lindex $fileInfo 0]
  540.   set pixmap [lindex $fileInfo 2]
  541.   set gc [lindex $fileInfo 3]
  542.   set gc_reversed [lindex $fileInfo 4]
  543.   set buttonsInfo($widget) \
  544.     [lreplace $fileInfo 3 4 $gc_reversed $gc]
  545.  
  546.   # this is a roundabout route for inverting the
  547.   # pixmap, because I cannot set the fg and bg
  548.   # directly for it. may need to unmap to stop
  549.   # unpleasant visual effects
  550.   $widget getValues -foreground fg -background bg
  551.   if {"$highlight" == "highlight"} {
  552.     $widget unmapWidget
  553.     $widget setValues -foreground $bg -background $fg
  554.     $widget setValues -labelPixmap $pixmap
  555.     $widget setValues -foreground $fg -background $bg
  556.     $widget mapWidget
  557.   } else {
  558.     $widget setValues -labelPixmap $pixmap
  559.   }
  560.  
  561.   # in xmfm this was XClearArea:
  562.   $widget getValues -height h
  563.   $widget drawImageString $gc_reversed 0 [expr $h-5] $filename 
  564. }
  565.  
  566. #######################################################################
  567. #
  568. # this section handles parsing of the action specification file
  569. #
  570. #######################################################################
  571.  
  572. #
  573. # loadActionsFile
  574. #
  575. proc loadActionsFile {} {
  576.   global env
  577.  
  578.   if { [file exists xtmfmrc] } {
  579.     source xtmfmrc
  580.     return
  581.   }
  582.   set homeXtmfmrc $env(HOME)/.xtmfmrc
  583.   if { [file exists $homeXtmfmrc] } {
  584.     source $homeXtmfmrc
  585.     return
  586.   }
  587.   if { [info exists env(XAPPRESDIR)] } {
  588.     source $env(XAPPRESDIR)/xtmfmrc
  589.     return
  590.   }
  591.   if { [file exists "/usr/lib/X11/app-defaults/xtmfmrc"] } {
  592.     source "/usr/lib/X11/app-defaults/xtmfmrc"
  593.     return
  594.   }
  595.   puts stderr "Can't find xtmfmrc file"
  596.   exit 1
  597. }
  598.  
  599. #
  600. # load_actions
  601. #  - parse the actions list and store it
  602. #
  603. proc loadActions {inActs} {
  604.   global actions
  605.  
  606.   set actions {}
  607.   foreach filetype $inActs {
  608.     set next [addFileType $filetype]
  609.     set actions [lappend actions $next]
  610.   }
  611. }
  612.  
  613. #
  614. # fileAction
  615. #  - parse the set of actions for an individual file type
  616. #
  617. proc fileAction {action} {
  618.   set act(label) ""
  619.   set act(run_in_xterm) 0
  620.   set act(pause_after_exec) 0
  621.   set act(action) ""
  622.   set act(prompt) ""
  623.   set act(confirm) ""
  624.  
  625.   set n 0
  626.   set length [llength $action]
  627.   while {$n < $length} {
  628.     set item [lindex $action $n]
  629.     case $item in {
  630.       run_in_xterm     {set act(run_in_xterm) 1}
  631.       pause_after_exec    {set act(pause_after_exec) 1}
  632.       label        {
  633.              incr n
  634.              set act(label) [lindex $action $n]
  635.             }
  636.       action        {
  637.              incr n
  638.              set act(action) [lindex $action $n]
  639.             }
  640.       prompt        {
  641.              incr n
  642.              set act(prompt) [lindex $action $n]
  643.             }
  644.       confirm        {
  645.              incr n
  646.              set act(confirm) [lindex $action $n]
  647.             }
  648.      default        {
  649.              puts stderr "unknown action $item"
  650.             }
  651.     }
  652.     incr n
  653.   }
  654.   return [list $act(run_in_xterm) $act(pause_after_exec) \
  655.             $act(label) $act(action) $act(prompt) $act(confirm)]
  656.   
  657. }
  658.  
  659. #
  660. # parse the entry for a new filetype
  661. #
  662. proc addFileType {filetype} {
  663.   set n 0
  664.   set length [llength $filetype]
  665.   
  666.   set a(type) ""
  667.   set a(pattern) ""
  668.   set a(pixmap) ""
  669.   set a(description) ""
  670.   set a(actions) {}
  671.  
  672.   while {$n < $length} {
  673.     set current [lindex $filetype $n]
  674.     case $current in {
  675.       type    {incr n
  676.          set a(type) [lindex $filetype $n]
  677.          incr n
  678.         }
  679.       pattern    {incr n
  680.                  set a(pattern) [lindex $filetype $n]
  681.                  incr n
  682.                 }
  683.       pixmap    {incr n
  684.                  set a(pixmap) [lindex $filetype $n]
  685.                  incr n
  686.                 }
  687.       description    {incr n
  688.                      set a(description) [lindex $filetype $n]
  689.                      incr n
  690.                     }
  691.       default    {
  692.          set a(actions) [lappend a(actions) [fileAction  $current]]
  693.          incr n 1
  694.                 }
  695.     }
  696.   }
  697.   return [list $a(type) $a(pattern) $a(pixmap) $a(description) $a(actions)]
  698. }
  699.  
  700. #######################################################################
  701. #
  702. # global commands to set this all going
  703. #
  704. #######################################################################
  705.  
  706.  
  707.  
  708. loadActionsFile
  709.  
  710. set selectedWidget ""
  711. set firstTime 0
  712.  
  713. xtAppInitialize -class Xtmfm \
  714.     -fallbackResources {
  715.     {*main.width: 600}
  716.     {*main.height: 600}
  717.  
  718.     {*filesToolbar*XmPushButton.height: 70}
  719.     {*filesToolbar*XmPushButton.width: 70}
  720.     {*filesToolbar*XmPushButton.recomputeSize: false}
  721.     {*filesToolbar.entryAlignment: alignment_center}
  722.  
  723.     {*dirsToolbar*XmPushButton.height: 70}
  724.     {*dirsToolbar*XmPushButton.width: 70}
  725.     {*dirsToolbar*XmPushButton.recomputeSize: false}
  726.     {*dirsToolbar.entryAlignment: alignment_center}
  727.  
  728.     {*XmDrawnButton.width: 100}
  729.     {*XmDrawnButton.height: 70}
  730.     {*XmDrawnButton.recomputeSize: false}
  731.     {*XmDrawnButton.shadowThickness: 0}
  732.     {*XmDrawnButton.borderWidth:     0}
  733.     {*XmDrawnButton.highlightThickness:      0}
  734.  
  735.     {*executablesPane.packing: pack_column}
  736.     {*executablesPane.orientation: vertical}
  737.     {*executablesPane.numColumns: 4}
  738.  
  739.     {*dirsPane.packing: pack_column}
  740.     {*dirsPane.orientation: vertical}
  741.     {*dirsPane.numColumns: 4}
  742.  
  743.     {*filesPane.packing: pack_column}
  744.     {*filesPane.orientation: vertical}
  745.     {*filesPane.numColumns: 4}
  746.  
  747.     {*executableFilter.labelString: Filter *}
  748.     {*fileFilter.labelString: Filter *}
  749.     {*dirFilter.labelString: Filter *}
  750.     }
  751.  
  752. createApplication
  753.  
  754. . realizeWidget
  755. . mainLoop
  756.  
  757.